home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / savework.clssa < prev    next >
Text File  |  1995-01-24  |  3KB  |  125 lines
  1. /***********************************************************************
  2.   $DAT >>SaveWork.clssa<<   25.10.1993 - (C)ProDAD Holger Burkarth
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6.   PARSE ARG filename
  7.   Address clariSSA
  8.  
  9.   cl=GetVersion()
  10.   IF cl="" THEN exit
  11.  
  12.  
  13.   FailAt 20
  14.   AltFail=RESULT
  15.  
  16.   DO FOREVER
  17.     IF filename="" THEN DO
  18.       FileSelect "TITLE 'Arbeitsdaten speichern' PTEXT 'Speichern'"
  19.       filename=RESULT
  20.     END
  21.     IF filename="" THEN LEAVE
  22.     SelectAnim
  23.     SelectedAnim=RESULT
  24.  
  25.     IF Open(saveit, filename, 'Write') THEN DO
  26.       CALL Writeln(saveit,"; clariSSA-SaveWork")
  27.       CALL Writeln(saveit,"STARTUP")
  28. /*********************************************
  29.       ret=SaveAnimLayOut("MASTER")
  30.       if ret~="" THEN  CALL Writeln(saveit,ret)
  31.       ret=SaveAnimLayOut("SOURCE_A")
  32.       if ret~="" THEN  CALL Writeln(saveit,ret)
  33.       ret=SaveAnimLayOut("SOURCE_B")
  34.       if ret~="" THEN  CALL Writeln(saveit,ret)
  35.       ret=SaveAnimLayOut("SOURCE_C")
  36.       if ret~="" THEN  CALL Writeln(saveit,ret)
  37.       ret=SaveAnimLayOut("SOURCE_D")
  38.       if ret~="" THEN  CALL Writeln(saveit,ret)
  39. *********************************************/
  40.       GetPlayMode
  41.         CALL Writeln(saveit,"SetPlayMode "RESULT)
  42.       GetEditMode
  43.         CALL Writeln(saveit,"SetEditMode "RESULT)
  44.       /* COMRESS-Anweisung herausfiltern, da sie beim Laden Probleme bereitet
  45.          es können keine Adorage-Animationen mehr aufgenommen werden ?? */
  46.       GetPref
  47.         Parse var RESULT pref1 "COMPRESS" filter pref2
  48.         CALL Writeln(saveit,"SetPref "pref1 pref2)
  49.       GetScreenGrabber
  50.         CALL Writeln(saveit,"SetScreenGrabber "RESULT)
  51.       HelpRequester
  52.         CALL Writeln(saveit,"HelpRequester "RESULT)
  53.  
  54.       IF cl="P" THEN DO
  55.         GetMAnimList 1
  56.           CALL Writeln(saveit,"SetMAnimList "RESULT)
  57.         GetAnimView
  58.           CALL Writeln(saveit,"SetAnimView "RESULT)
  59.         GetAnimClip
  60.           CALL Writeln(saveit,"SetAnimClip "RESULT)
  61.         GetBEZI
  62.           CALL Writeln(saveit,"SetBEZI "RESULT)
  63.         GetUserWork
  64.           CALL Writeln(saveit,"SetUserWork "RESULT)
  65.         GetAnimRun
  66.           CALL Writeln(saveit,"SetAnimRun "RESULT)
  67.  
  68.       END
  69.  
  70.  
  71.       CALL Writeln(saveit,"#")
  72.       CALL Close(saveit)
  73.     END; ELSE Message "'Arbeitsdaten können nicht''gespeichern werden.'"
  74.  
  75.     SelectAnim SelectedAnim
  76.  
  77.     LEAVE
  78.   END
  79.   FailAt AltFail
  80.  RETURN
  81.  
  82.  
  83.  
  84.  
  85. GetVersion: procedure
  86. DO
  87.   Information
  88.   PARSE VAR RESULT . "VERSION:" cl .
  89.   RETURN (cl)
  90. END
  91.  
  92.  
  93.  
  94. SaveAnimLayOut: procedure
  95. DO
  96.   ARG Anim
  97.  
  98.   ret=""
  99.   SelectAnim Anim
  100.   GetAnimInfo
  101.   IF RESULT~="" THEN DO
  102.     IF GetVersion()="P" THEN DO
  103.       GetAnimInfo MULTI
  104.       IF RESULT="" THEN DO
  105.         GetAnimInfo
  106.         PARSE VAR RESULT "'"AnimFile"'" .
  107.       END; ELSE DO
  108.         PARSE VAR RESULT . "NAME" '"'AnimFile'"' .
  109.         IF AnimFile="new" THEN DO
  110.           GetAnimInfo
  111.           PARSE VAR RESULT "'"AnimFile"'" .
  112.         END
  113.       END
  114.     END; ELSE DO
  115.       PARSE VAR RESULT "'"AnimFile"'" .
  116.     END
  117.  
  118.     ret='ANIMATION ' Anim ' "'AnimFile'"'
  119.   END
  120.   RETURN (ret)
  121. END
  122.  
  123.  
  124.  
  125.